{NeoBook Function}
'###############################
' Author: Andrei Solodyankin (as3856) 
' mail : as3856@rambler.ru
' www/neobooker.ru
'###############################

Language=VBScript
Comment=The function displays the real names, adapter type, and MAC addresses of all network adapters installed on the system
Param=[%1]|Text|The name of the array variable
{End}
' ,,MAC-
On Error Resume Next
Set objService = GetObject("WinMgmts:\\.\Root\CIMV2")
If Err.Number <> 0 Then
	WScript.Echo Err.Number & ": " & Err.Description
	WScript.Quit
End If
For Each objNtw In objService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
i=i+1
If objNtw.PhysicalAdapter = True	Then
  
S="ProductName =" & objNtw.ProductName &vbCrLf&_
"AdapterType =" & objNtw.AdapterType &vbCrLf&"MACAddress =" & objNtw.MACAddress

 nbSetVar "[%0]",i
 nbSetVar "[%1][%0]",S

End If
Next
